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Nell'allegato alla lezione 25, IL SUONO, abbiamo visto le 
locazioni di memoria su cui agire per creare effetti sonori e 
musicali, cercando in questo modo di capire la struttura di un 
programma sonoro attraverso la spiegazione e l'uso delle 
funzioni principali: volume, forme d'onda, ADSR, frequenza, 
filtri, ecc. 

Ma, oltre che per lo 

costruzione di un programmo 

sonoro, i suoni possono essere ^ /7 

utilizzati anche in molti altri /£/ 

modi, e questo è appunto C\ > 

l'argomento della lezione 27._\\( f X/7 



Infatti i suoni, non solo possono essere usati nei video giochi 
(spari, esplosioni, rumori, ecc. ) ma anche, come vedremo, 
in programmi gestionali o educativi; quando c'è bisogno di 
sottolineare, ad esempio, alcune domande o risposte con 
un "beep", oppure di associare certi colori a determinati 
suoni. 
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Nella costruzione di un programa musicale solitamente 
conviene usare le porti del programma che creano i suoni 
come subroutine e, per evitare di dover poi ricopiare nei 
poke le locazioni di memoria a cui accedere, è preferibile 
memorizzare tutti i numeri delle locazioni che regolano i 
generatori di suoni in opportune variabili. 






Listato dell'esercizio: 
ESEMPIO PRATICO (CDM 64) 

10 Si=54£?e 

20 poKesi+24,15 

30 poKesi+4,33 

40 poKesi+5,15 :poKesi+6,0 

50 -forf = Ito 150 

S0 poKesi,0:poKesi + 1 

70 -forK = Ito 100!next 

30 next-f 

90 poKes i+4,0 

100 poKes i+24,0 


Listato dell'esercizio: 
ESEMPIO PRATICO (VIC 20) 

10 poKe36878,15 
20 -f or-f = 128to250 
30 poKe36876 ,-f 
40 next-f 
50 poKe3687S,0 


Listato dell'esercizio: 
COMPLETA IL LISTATO (CDM 64) 

10 poKe53280,6spoKe53231 ,3 
20 n=0ìprintchr$<t#3> 

30 11=24i12=38:x=0![*3 

40 ■forg = E*3to6 

50 1 1=1 l-2:-for C*3tox+l 1 

60 gosub150:nextx 

70 12=E*3-2!fory=ytoy+12 

80 gosub150!nextt*3 

90 i-f C * 3t hen 1 1 = 1 1 + 1 

100 1 1 = C* 3-2 !forx=xtox-1lstep- 1 

110 gosub150!nextx 

120 12 = 12-1 * 3 :-f or y =y toy-12step -1 

130 gosubC* 3 !nexty 

140 nextg:C*3 

150 p =x *40+yipoKe55296+p ,2 
160 poKe1024+p,160![*3 


Listato dell'esercizio: 
COMPLETA IL LISTATO (VIC 20) 

10 poKeSSS^S ,ez 
£0 n=0:printchrf< t*3) 

30 11=22:l£=£0!x=0:t*3 

40 -forg = C*3to5 

50 1 1=1 1-2 5-for E*3tox+l 1 

60 gosub150 :nextx 

70 12 = t#3-2:-fory=ytoy+12 

80 gosub 150 s next C * 3 

90 i-f C*3thenl 1=J 1 + 1 

100 l 1 = [ * 3-2 :-f or x =xtox-1 lstep - 1 

110 gosub 150 :nextx 

120 12 = 12-t*3 Jfory=ytoy~12step -1 

130 gosubC* 3 :nexty 

140 nextg : E * 3 

150 p=x*£2+y:poKe33400+p ,2 
180 poKe7680+p,160 : t * 3 


PROGRAMMIAMO INSIEME (CDM 64) 

10 poKe53£80,3:poKe53£81,3:poKe650,128 
20 print”8"chr$(142) 

30 v=1024:c=55286:g=40Jp=940 

40 a =65 : n =83 : m=46 : c a =0 : cn =6 : cs =3 : crr.=£ 

100 1=p: getx$:gosub2000 
110 i-fx*:=" "then 100 

120, i-f <x$="z " >*Cp >920) then p =p - 1 
130 i-f <x$="x " >*<p<959> then p =P + 1 
140 i-f x*=f” " then gosub 1000 
200 poKec+1,csspoKew+1,32 
220 poKec+p,ca:pcKev+p,a 
300 goto 100 

1000 h =p-q !-f =h s gosub3000 
1040 poKec+-f ,cs s poKeu+-f ,32 
1060 poKec+h,cm!poKev+h,m 

1070 i-f h=g then gosub 3000 : -f =h : g =300 : pn =pn + 1 : 

pr int "l>unte99 io “;pnsgoto 1100 

1080 -f =h sh=h-q: i-f h >q then 1040 

1 100 poKec+f ,cs : poKev +-f ,32:return 

£000 t=g:i-f g >840 then j =j + 1 : g = int <r nd <0 > +q > 
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2010 i* j=20 Ihen end 
2020 g=g+q 

2040 poKec+1,cs!poKev ,32 
2060 poKec+g,cn!poKev+g,n 
2 100 return 
3000 si =54272 

3020 -for y = 15 io 0 step -1 

3040 poKes i+24 ,y : poKesi+5,15:poKesi+6,0:poKesi + 1,40: 
PoKes i ,200: poKesi+4,123 

3060 next y:poKesi+4,0:poKesi+5,0:return 

PROGRAMMIAMO INSIEME (VIC 20) 

10 poKe36373,59 : pok'e650 ,• 1 £3 
20 pr int "a"chr142) 

30 v=7680:c=36400:q=£2:p=473 

40 a=65 :n =83 :m=46:ca=0?cn=6:cs=3s cm=£ 

100 1=p:getx$:gosub2000 
110 i-fx*= ” "then 100 

120 i i <x$="z")*< p> 462> then p=p- 1 
130 if <x$= "x " > * <p <‘483 ? thèrs P=P+! 

140 i-f x$~" " ther go = uh t000 
£00 poKec 4 1 , c s : p o K e + I ,32 
220 P c k' e c + p , c a : r o K e v + p , a 
300 goto 106 

! 000 h=p-q:f=h:gosub3000 
!040 poKscrf,cs:poKev + f,32 
!060 p oKsc +h ,cm: poKev + h ,rn 

1070 i-f h =g ther: gosub 3000 : t =h : g =550 : pn =pn + 1 : pr int 

"l^untegg io '3pn :goto 1100 

1080 f =h : h =h-q : i-f h >q then 1046 

4 100 poR'ec+f , c s :poKev -‘■■f , 32 : return 

2000 t = s : i-f g >4 18 ther* .j =.j + 1 : g = int <r nd <0 > *q ) 

20 ! 0 if j=20 ther end 
2020 3=3+q 

2040 poKec+t,cs:poKeu +t,32 

£060 poKscr+g , c.n : poKeu + g ,r 

£100 return 

3000 poKe3S878,15 

3020 for y=£00 to 128 =tep -1 

3040 pok'e36876,y 

3060 next y : poKe36376,0 : poKe 36378,0: retur n 
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Soluzione dell'esercizio: 
COMPLETA IL LISTATO CDM 64 

(lez. 26) 

10 poKe53280 .,6 : poKe5323 1 ,3:-=54272 
20 printchr*<142)chr$<147) 

30 forx =40to993 

40 ifint (rnd <0>*50 > <46then60 

50 poKe1024+x,S6spoKs55296+x ,6 

60 nextx:K = 1354 !a=t i 

70 getafìpoKeK,38!poKec +K,!! pK =K 

30 i-fa*=”x "then K=K + 1 

90 ifa$= "z "then K=K-1 

100 if a*= "; "then K=K-40 

110 ifa*="/"then K=K+40 

120 i-fpK < >KthenpoKec+pK ,3 

130 if <K <1064> + (K>2023>thenk=1064 

140 ifpeeKOO =86thens =s +l!pokec+K,3 

150 printchr$<19)tab<15>"punti! ",'s 

160 ifti-a<1800then70 


Soluzione dell'esercizio: 
COMPLETA IL LISTATO VIC 20 

(lez. 26) 

10 poKe36379,6£;c=307£0 
20 pr intchr*< 142)chr«-< 147) 

30 forx=£2to505 

40 ifintCrnd<0)*50)<4Sthen60 

50 poKe7630+x ,S6:po<<s33400+x ,6 

60 nextx !K=7’?0£:a=t i 

70 geta$:pokek,88!poKac+K,1spK =k 

30 ifa*="x"then K=K + 1 

90 ifa$="z"then K=k-1 

100 ifa*=";"then K=K-22 

110 ifa*=Vthen k=k+£8 

120 ifpK<>KthenpoKec + pk ,3 

130 if <k <7702) + <k>S135)therk=770£ 

140 ifpeeK <K)=86thens =s + 1!pokec +k,3 
150 printchr*(19)tab < 6 ) "punt i ! " ; s 
160 ifti-a<1800then70 
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